home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / uscita>>.xdve < prev   
Text File  |  1995-07-02  |  1KB  |  49 lines
  1. /* Uscita a destra della immagine in 50 FRAMES su fondo nero */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'
  9. ROTAZIONE = 0
  10. NUMEROFRAME = 0
  11.  
  12. OKAY2 '"Hai messo a RESET TO DEFAULT il perspective?"'
  13. IF RC = 0 THEN EXIT
  14.  
  15. GETFILES '"Seleziona la immagine CHE ESCE DALLO SCHERMO"'
  16.  IF RC ~= 0 THEN EXIT
  17.   PRIMA = ADPRO_RESULT
  18.    IF PRIMA = "" THEN EXIT
  19.     LOADER "UNIVERSAL" PRIMA
  20. SAVER "IFF" TmpIma "RAW"
  21.     XSIZE
  22.      BASE = ADPRO_RESULT
  23.      SPOSTA = TRUNC((BASE / 70) + 0.5)
  24.      SPOSTA2 = SPOSTA
  25.  
  26. GETFILE '"Path e nomebase 50 frames elaborati"'
  27. IF RC ~= 0 THEN EXIT
  28. OUTFILE = ADPRO_RESULT
  29. if OUTFILE = "" then exit
  30.   
  31.    DO i=1 to 50
  32. LOADER "IFF" TmpIma
  33.  OPERATOR "PERSPECTIVE" CAMERA_POSITION 0 0 (BASE) THETA 0 GAMMA (ROTAZIONE) PHI 0 SOFT_EDGE
  34.  
  35. OPERATOR ROLL RIGHT (SPOSTA) NO_WRAP
  36. SPOSTA = (SPOSTA + SPOSTA2)
  37.  ROTAZIONE = (ROTAZIONE + 2)
  38.  
  39.     NUMEROFRAME = (NUMEROFRAME + 1)
  40.     NUMERO = RIGHT(NUMEROFRAME,3,'0')
  41.  
  42. SFORMAT "IFF"
  43.   SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  44.    SAY "Salvo il frame Num." NUMERO
  45.     END    
  46. ADDRESS COMMAND "Delete >NIL:" TmpIma
  47.  
  48. EXIT
  49.